home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / simula / books / books.lha / kirkerud / countld.sim < prev    next >
Text File  |  1993-08-16  |  771b  |  30 lines
  1. ! Proposed solution to exercise 3.5: "Count letters and digits";
  2.  
  3. begin
  4.  
  5.   integer number_of_digits, number_of_letters;
  6.   character char_typed;
  7.   
  8.   outtext("Type some characters.  Quit with an exclamation mark!"); outimage;
  9.  
  10.   inimage;
  11.   char_typed := inchar;
  12.   while char_typed ne '!' do
  13.     begin
  14.       if digit(char_typed) then 
  15.         number_of_digits := number_of_digits + 1 else
  16.       if letter(char_typed) then 
  17.         number_of_letters := number_of_letters + 1;
  18.       char_typed := inchar;
  19.     end;
  20.  
  21.   outtext("You typed ");
  22.   outint(number_of_letters, 0); 
  23.   outtext(" letter"); if number_of_letters ne 1 then outchar('s');
  24.   outtext(" and ");
  25.   outint(number_of_digits, 0); 
  26.   outtext(" digit"); if number_of_digits ne 1 then outchar('s');
  27.   outimage;
  28.  
  29. end
  30.